home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 014 / arcit.bat < prev    next >
Encoding:
DOS Batch File  |  1985-11-12  |  768 b   |  37 lines
  1.      ECHO >DELIBONE.BAT LUE %1
  2.      ECHO >>DELIBONE.BAT COPY DELIBONE.BAT HADONE.XXX
  3.      ECHO >Y Y
  4.      md temp
  5. :START
  6.      IF NOT EXIST %1.LQR GOTO TRYLBR
  7.      CD TEMP
  8.      USQSR ..\%1.LQR
  9.      LUE %1.LBR
  10.      DEL %1.LBR
  11.      GOTO GOTIT
  12. :TRYLBR
  13.      IF NOT EXIST %1.LBR GOTO FINISH
  14.      CD TEMP
  15.      LUE ..\%1.LBR
  16. :GOTIT
  17.      FOR %%A IN (*.?Q?) DO USQSR %%A
  18.      DEL *.?Q?
  19. :CHEKLBR
  20.      DEL HADONE.XXX
  21.      FOR %%A IN (*.LBR) DO ..\DELIBONE %%A
  22.      IF EXIST HADONE.XXX GOTO GOTIT
  23. :ARCNOW
  24.      ARC U %1.ARC *.*
  25. REM  DEL ..\%1.L?R
  26.      MV %1.ARC ..
  27.      DEL *.* < ..\Y
  28.      SHIFT
  29.      CD ..
  30.      GOTO START
  31. :FINISH
  32.      DEL Y
  33.      DEL DELIBONE.BAT
  34.      rd temp
  35.      CLS
  36.      REM  *** ALL SPECIFIED FILES ARCED ***
  37.